home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / demos / 000e.dxr / Internal_16.ls < prev    next >
Encoding:
Text File  |  1998-03-02  |  689 b   |  28 lines
  1. on mouseDown
  2.   set tButtonState to word 2 of the name of member the memberNum of sprite the clickOn of castLib the castLibNum of sprite the clickOn
  3.   if tButtonState = "downState" then
  4.     exit
  5.   else
  6.     hCheckAnyConflicts()
  7.     hMakeSound("CLICK.AIF", 1)
  8.     case tButtonState of
  9.       "upState":
  10.         if hValidClick01() = 1 then
  11.           hButtonScripts(tButtonState)
  12.         end if
  13.       "rolloverState":
  14.         if hValidClick02() = 1 then
  15.           hButtonScripts(tButtonState)
  16.         end if
  17.     end case
  18.   end if
  19. end
  20.  
  21. on hButtonScripts pButtonState
  22.   global gDemoStyle, gSection
  23.   hChangeCursor("watch")
  24.   set gDemoStyle to "single"
  25.   set gSection to "E"
  26.   go(1, "DEMO610")
  27. end
  28.